home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / qbasicpg.zip / CIRCLE-2.BAS < prev    next >
Encoding:
BASIC Source File  |  1989-08-31  |  961 b   |  28 lines
  1. ' CIRCLE-2.BAS
  2. ' This program demonstrates how to create arcs with the CIRCLE statement.
  3.  
  4. CLS
  5.  
  6. INPUT "Please enter a screen mode (0-13):  ", modeNum%
  7. SCREEN modeNum%
  8.  
  9. DO
  10.     CLS
  11.     PSET (150, 30): PSET (150, 125)   ' draw top and bottom points
  12.     PSET (95, 78): PSET (205, 78)     ' draw left and right points
  13.     LOCATE 2, 18: PRINT "1.57"        ' label for top point
  14.     LOCATE 10, 7: PRINT "3.14"        ' label for left point
  15.     LOCATE 18, 18: PRINT "4.71"       ' label for bottom point
  16.     LOCATE 10, 28: PRINT "0 or 6.28"  ' label for right point
  17.    
  18.     LOCATE 20, 1
  19.     PRINT "Enter values between 0 and 6.28"
  20.     PRINT "(A negative value draws a radius.)"
  21.     INPUT "Please enter starting point:  ", starting!
  22.     INPUT "Please enter ending point:  ", ending!
  23.     CIRCLE (150, 78), 50, , starting!, ending!    ' no color value
  24.     INPUT "Press Enter to continue or Q to quit: ", dummy$
  25.  
  26. LOOP UNTIL UCASE$(dummy$) = "Q"
  27.  
  28.